home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software USA 5 #5
/
Software USA Volume 5.05.iso
/
pc
/
homeoff
/
zilch
/
run
/
zilchs21.exe
/
0
/
RCDATA
/
TORDERFORM1
/
TORDERFORM1.txt
Wrap
Text File
|
1999-01-29
|
19KB
|
875 lines
object OrderForm1: TOrderForm1
Left = 260
Top = 173
BorderStyle = bsDialog
Caption = 'Zilch Order Form'
ClientHeight = 453
ClientWidth = 632
Color = clTeal
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'Arial'
Font.Style = [fsBold]
KeyPreview = True
Position = poScreenCenter
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 14
object Image2: TImage
Left = 0
Top = 0
Width = 632
Height = 453
Align = alClient
Stretch = True
end
object lblName: TLabel
Left = 23
Top = 11
Width = 33
Height = 13
Caption = 'Name'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = lblNameClick
end
object Label2: TLabel
Left = 23
Top = 59
Width = 53
Height = 13
Caption = 'Address2'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label2Click
end
object Label3: TLabel
Left = 23
Top = 35
Width = 53
Height = 13
Caption = 'Address1'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label3Click
end
object Label4: TLabel
Left = 23
Top = 83
Width = 22
Height = 13
Caption = 'City'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label4Click
end
object Label1: TLabel
Left = 376
Top = 83
Width = 31
Height = 13
Caption = 'State'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label1Click
end
object Label5: TLabel
Left = 471
Top = 83
Width = 19
Height = 13
Caption = 'Zip'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label5Click
end
object Label6: TLabel
Left = 23
Top = 107
Width = 44
Height = 13
Caption = 'Country'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label6Click
end
object Label7: TLabel
Left = 23
Top = 132
Width = 37
Height = 13
Caption = 'Phone'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label7Click
end
object Label8: TLabel
Left = 21
Top = 157
Width = 48
Height = 13
Caption = 'Quantity'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnClick = Label8Click
end
object Label23: TLabel
Left = 356
Top = 338
Width = 233
Height = 77
Alignment = taCenter
AutoSize = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -12
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
end
object Panel9: TPanel
Left = 356
Top = 116
Width = 240
Height = 219
BevelOuter = bvNone
Color = clBlack
Ctl3D = False
ParentCtl3D = False
TabOrder = 14
end
object Panel8: TPanel
Left = 16
Top = 192
Width = 317
Height = 168
BevelOuter = bvNone
Color = clBlack
Ctl3D = False
ParentCtl3D = False
TabOrder = 13
end
object Name: TEdit
Left = 83
Top = 7
Width = 510
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object Address2: TEdit
Left = 83
Top = 56
Width = 510
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object Address1: TEdit
Left = 83
Top = 32
Width = 510
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object City: TEdit
Left = 83
Top = 80
Width = 288
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object ZipCode: TEdit
Left = 496
Top = 80
Width = 97
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
end
object Phone: TEdit
Left = 83
Top = 129
Width = 134
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object EditQty: TEdit
Left = 83
Top = 155
Width = 39
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
Text = '1'
OnExit = EditQtyExit
OnKeyPress = EditQtyKeyPress
end
object State: TComboBox
Left = 409
Top = 81
Width = 56
Height = 21
DropDownCount = 10
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
''
'AK'
'AL'
'AR'
'AZ'
'CA'
'CO'
'CT'
'DC'
'DE'
'FL'
'GA'
'HI'
'IA'
'ID'
'IL'
'IN'
'KS'
'KY'
'LA'
'MA'
'MD'
'ME'
'MI'
'MN'
'MO'
'MS'
'MT'
'NC'
'ND'
'NE'
'NH'
'NJ'
'NM'
'NV'
'NY'
'OH'
'OK'
'OR'
'PA'
'RI'
'SC'
'SD'
'TN'
'TX'
'UT'
'VA'
'VT'
'WA'
'WI'
'WV'
'WY')
MaxLength = 2
ParentFont = False
Sorted = True
TabOrder = 4
OnChange = StateChange
OnExit = StateExit
OnKeyPress = StateKeyPress
end
object Country: TComboBox
Left = 83
Top = 104
Width = 210
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ItemHeight = 13
Items.Strings = (
'USA'
'United States'
'Canada'
'Algeria'
'American Samoa'
'Argentina'
'Austria'
'Australia'
'Belgium'
'Belize'
'Bolivia'
'Brazil'
'Chile'
'Columbia'
'Costa Rica'
'Czechoslovakia'
'Denmark'
'El Salvador'
'Ethiopia'
'Finland'
'France'
'Germany'
'Greece'
'Guam'
'Haiti'
'Hong Kong'
'Hungary'
'Iceland'
'India'
'Indonesia'
'Ireland'
'Isreal'
'Italy'
'Japan'
'Kenya'
'Kuwait'
'Liberia'
'Mexico'
'Netherlands'
'New Zealand'
'Norway'
'Panama'
'Poland'
'Portugal'
'Spain'
'Sweden'
'Switzerland'
'Venezuela'
'United Kingdom')
ParentFont = False
TabOrder = 6
OnChange = CountryChange
OnExit = CountryExit
end
object Panel2: TPanel
Left = 352
Top = 112
Width = 240
Height = 219
BevelInner = bvLowered
Ctl3D = True
ParentCtl3D = False
TabOrder = 9
object Label17: TLabel
Left = 5
Top = 89
Width = 80
Height = 13
Caption = 'Software Cost'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label18: TLabel
Left = 5
Top = 107
Width = 51
Height = 13
Caption = 'Discount'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label19: TLabel
Left = 5
Top = 125
Width = 48
Height = 13
Caption = 'Subtotal'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object LabelTax: TLabel
Left = 5
Top = 152
Width = 88
Height = 13
Caption = 'Sales Tax (MD)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label21: TLabel
Left = 5
Top = 170
Width = 115
Height = 13
Caption = 'Shipping && Handling'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label22: TLabel
Left = 5
Top = 196
Width = 103
Height = 13
Caption = 'Total Amount Due'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object PCost: TPanel
Left = 134
Top = 86
Width = 99
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 0
end
object PDiscount: TPanel
Left = 134
Top = 104
Width = 99
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
Caption = 'PDiscount'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
end
object PSubtotal: TPanel
Left = 134
Top = 122
Width = 99
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
Caption = 'PSubtotal'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
end
object PTax: TPanel
Left = 134
Top = 149
Width = 99
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
Caption = 'PTax'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object PShipping: TPanel
Left = 134
Top = 167
Width = 99
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
Caption = 'PShipping'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
end
object PTotal: TPanel
Left = 134
Top = 193
Width = 99
Height = 18
Alignment = taRightJustify
BevelInner = bvLowered
Caption = 'PTotal'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 5
end
object Panel10: TPanel
Left = 0
Top = 58
Width = 240
Height = 23
BevelInner = bvLowered
Caption = 'Invoice Information'
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 6
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 240
Height = 23
BevelInner = bvLowered
Caption = 'Quantity Discounts'
Color = clGray
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 7
end
object Panel4: TPanel
Left = 1
Top = 22
Width = 118
Height = 19
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = '2 to 4 10%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 8
end
object Panel6: TPanel
Left = 121
Top = 22
Width = 118
Height = 19
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = '25 to 49 20%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 9
end
object Panel5: TPanel
Left = 1
Top = 40
Width = 118
Height = 19
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = '5 to 24 15%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
end
object Panel7: TPanel
Left = 121
Top = 40
Width = 118
Height = 19
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = '50 + 25%'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
end
end
object BitBtn1: TBitBtn
Left = 18
Top = 372
Width = 82
Height = 27
Caption = 'Go back'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 10
OnClick = BitBtn1Click
Kind = bkAbort
Spacing = -1
end
object BitBtn2: TBitBtn
Left = 106
Top = 372
Width = 82
Height = 27
Caption = 'Print'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 11
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
0400000000000001000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
0003377777777777777308888888888888807F333333333333370FFFFFFF1F2F
1FF07FFFFFFFFFFFFFF70FFFFFFFFFFFFFF077777777777777770F4444444444
44F07F333333333333F70F888888888888F07F333333333337370FFFFFFFFFFF
FFF07FFFFFFFFFFFFFF7300000000000000337777777777777733330FFFFFFFF
03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
33333337FFFF7733333333300000033333333337777773333333}
NumGlyphs = 2
Spacing = -1
end
object Panel1: TPanel
Left = 14
Top = 189
Width = 317
Height = 168
BevelInner = bvRaised
BorderStyle = bsSingle
Color = clGray
Ctl3D = False
ParentCtl3D = False
TabOrder = 12
object Image1: TImage
Left = 2
Top = 2
Width = 311
Height = 162
Align = alClient
end
object Label9: TLabel
Left = 16
Top = 4
Width = 142
Height = 37
Caption = 'ZilchWorks'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -32
Font.Name = 'Arial Narrow'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label10: TLabel
Left = 14
Top = 2
Width = 142
Height = 37
Caption = 'ZilchWorks'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -32
Font.Name = 'Arial Narrow'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object LabelPhone2: TLabel
Left = 139
Top = 44
Width = 166
Height = 24
Alignment = taCenter
AutoSize = False
Caption = '(301) 932-7027'
Font.Charset = ANSI_CHARSET
Font.Color = clBlack
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
object Label11: TLabel
Left = 10
Top = 35
Width = 121
Height = 34
AutoSize = False
Caption = 'To order by phone call Mon-Sat 8am-5pm [EST]'
Font.Charset = ANSI_CHARSET
Font.Color = clYellow
Font.Height = -13
Font.Name = 'Arial Narrow'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
end
object Label12: TLabel
Left = 10
Top = 68
Width = 296
Height = 92
AutoSize = False
Caption =
'We accept Visa, MasterCard and Amex. Credit card orders are ship' +
'ped the next day! Overnight delivery available for an additiona' +
'l fee.'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -19
Font.Name = 'Arial Narrow'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
WordWrap = True
end
object LabelPhone1: TLabel
Left = 138
Top = 42
Width = 166
Height = 24
Alignment = taCenter
AutoSize = False
Caption = '(301) 932-7027'
Font.Charset = ANSI_CHARSET
Font.Color = clWhite
Font.Height = -21
Font.Name = 'Arial'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
end